home *** CD-ROM | disk | FTP | other *** search
/ Remax Data / Remax Porfolio Data 15 Jul 1994 CD-ROM.ISO / fp26_rmx / pro.spr < prev    next >
Encoding:
Text File  |  1994-07-10  |  8.4 KB  |  311 lines
  1. *       *********************************************************
  2. *       *                                                         
  3. *       * 07/10/94               PRO.SPR                 17:33:45 
  4. *       *                                                         
  5. *       *********************************************************
  6. *       *                                                         
  7. *       * Author's Name                                           
  8. *       *                                                         
  9. *       * Copyright (c) 1994 Company Name                         
  10. *       * Address                                                 
  11. *       * City,     Zip                                           
  12. *       *                                                         
  13. *       * Description:                                            
  14. *       * This program was automatically generated by GENSCRN.    
  15. *       *                                                         
  16. *       *********************************************************
  17.  
  18.  
  19. #REGION 0
  20. REGIONAL m.currarea, m.talkstat, m.compstat
  21.  
  22. IF SET("TALK") = "ON"
  23.     SET TALK OFF
  24.     m.talkstat = "ON"
  25. ELSE
  26.     m.talkstat = "OFF"
  27. ENDIF
  28. m.compstat = SET("COMPATIBLE")
  29. SET COMPATIBLE FOXPLUS
  30.  
  31. m.rborder = SET("READBORDER")
  32. SET READBORDER ON
  33.  
  34. m.currarea = SELECT()
  35.  
  36.  
  37. *       *********************************************************
  38. *       *                                                         
  39. *       *               Windows Window definitions                
  40. *       *                                                         
  41. *       *********************************************************
  42. *
  43.  
  44. IF NOT WEXIST("pro") ;
  45.     OR UPPER(WTITLE("PRO")) == "PRO.PJX" ;
  46.     OR UPPER(WTITLE("PRO")) == "PRO.SCX" ;
  47.     OR UPPER(WTITLE("PRO")) == "PRO.MNX" ;
  48.     OR UPPER(WTITLE("PRO")) == "PRO.PRG" ;
  49.     OR UPPER(WTITLE("PRO")) == "PRO.FRX" ;
  50.     OR UPPER(WTITLE("PRO")) == "PRO.QPR"
  51.     DEFINE WINDOW pro ;
  52.         AT  0.000, 0.000  ;
  53.         SIZE 39.385,148.200 ;
  54.         TITLE "Professional Information" ;
  55.         FONT "MS Sans Serif", 8 ;
  56.         FLOAT ;
  57.         CLOSE ;
  58.         MINIMIZE ;
  59.         SYSTEM
  60.     MOVE WINDOW pro CENTER
  61. ENDIF
  62.  
  63.  
  64. *       *********************************************************
  65. *       *                                                         
  66. *       *                PRO/Windows Screen Layout                
  67. *       *                                                         
  68. *       *********************************************************
  69. *
  70.  
  71. #REGION 1
  72. IF WVISIBLE("pro")
  73.     ACTIVATE WINDOW pro SAME
  74. ELSE
  75.     ACTIVATE WINDOW pro NOSHOW
  76. ENDIF
  77. @ 0.692,2.200 SAY Bioinfo.image ;
  78.     SIZE 13.231,29.200 ;
  79.     STRETCH ;
  80.     STYLE ""
  81. @ 0.538,38.400 SAY "Name:" ;
  82.     FONT "MS Sans Serif", 10 ;
  83.     STYLE "BT"
  84. @ 2.385,38.400 SAY "Office Name" ;
  85.     FONT "MS Sans Serif", 10 ;
  86.     STYLE "BT"
  87. @ 4.231,38.400 SAY "City/St/Prov" ;
  88.     FONT "MS Sans Serif", 10 ;
  89.     STYLE "BT"
  90. @ 6.077,38.400 SAY "Club" ;
  91.     FONT "MS Sans Serif", 10 ;
  92.     STYLE "BT"
  93. @ 7.923,38.400 SAY "Year Joined RE/MAX" ;
  94.     FONT "MS Sans Serif", 10 ;
  95.     STYLE "BT"
  96. @ 7.923,96.000 SAY "Year Lic'd" ;
  97.     FONT "MS Sans Serif", 10 ;
  98.     STYLE "BT"
  99. @ 10.077,38.000 SAY "Office" ;
  100.     FONT "MS Sans Serif", 10 ;
  101.     STYLE "BT"
  102. @ 10.077,69.600 SAY "Direct" ;
  103.     FONT "MS Sans Serif", 10 ;
  104.     STYLE "BT"
  105. @ 10.077,100.000 SAY "Mobile" ;
  106.     FONT "MS Sans Serif", 10 ;
  107.     STYLE "BT"
  108. @ 12.846,38.000 SAY "Pager" ;
  109.     FONT "MS Sans Serif", 10 ;
  110.     STYLE "BT"
  111. @ 12.846,69.200 SAY "Home" ;
  112.     FONT "MS Sans Serif", 10 ;
  113.     STYLE "BT"
  114. @ 12.846,99.600 SAY "Fax" ;
  115.     FONT "MS Sans Serif", 10 ;
  116.     STYLE "BT"
  117. @ 14.692,2.000 SAY "Service Areas, Personal:" ;
  118.     FONT "MS Sans Serif", 10 ;
  119.     STYLE "BT"
  120. @ 16.538,2.000 SAY "Education" ;
  121.     FONT "MS Sans Serif", 10 ;
  122.     STYLE "BT"
  123. @ 16.538,62.000 SAY "Average Price Range:" ;
  124.     FONT "MS Sans Serif", 10 ;
  125.     STYLE "BT"
  126. @ 18.385,2.000 SAY "Designations, R.E.:" ;
  127.     FONT "MS Sans Serif", 10 ;
  128.     STYLE "BT"
  129. @ 16.538,11.600 SAY ":" ;
  130.     FONT "MS Sans Serif", 10 ;
  131.     STYLE "BT"
  132. @ 18.385,62.000 SAY "Designations, Non R.E.:" ;
  133.     FONT "MS Sans Serif", 10 ;
  134.     STYLE "BT"
  135. @ 20.231,2.000 SAY "Previous Career:" ;
  136.     FONT "MS Sans Serif", 10 ;
  137.     STYLE "BT"
  138. @ 22.077,2.000 SAY "Membership:" ;
  139.     FONT "MS Sans Serif", 10 ;
  140.     STYLE "BT"
  141. @ 23.923,2.000 SAY "Civic Activities:" ;
  142.     FONT "MS Sans Serif", 10 ;
  143.     STYLE "BT"
  144. @ 25.769,2.000 SAY "Hobbies/Interests:" ;
  145.     FONT "MS Sans Serif", 10 ;
  146.     STYLE "BT"
  147. @ 27.615,2.000 SAY "Primarily works with:" ;
  148.     FONT "MS Sans Serif", 10 ;
  149.     STYLE "BT"
  150. @ 36.154,7.600 EDIT Bioinfo.info ;
  151.     SIZE 3.000,134.200,0.000 ;
  152.     PICTURE "@K" ;
  153.     DEFAULT " " ;
  154.     FONT "MS Sans Serif", 8
  155. @ 0.615,49.400 SAY Roster.name ;
  156.     SIZE 1.000,40.800 ;
  157.     FONT "MS Sans Serif", 8
  158. @ 2.462,57.600 SAY Roster.offname ;
  159.     SIZE 1.000,40.800 ;
  160.     FONT "MS Sans Serif", 8
  161. @ 4.231,57.800 SAY Roster.city+ '    ' +  Roster.state ;
  162.     SIZE 1.000,31.200 ;
  163.     FONT "MS Sans Serif", 8
  164. @ 6.231,46.800 SAY Roster.club ;
  165.     SIZE 1.000,4.600 ;
  166.     FONT "MS Sans Serif", 8
  167. @ 8.000,70.800 SAY Roster.join ;
  168.     SIZE 1.000,4.600 ;
  169.     FONT "MS Sans Serif", 8 ;
  170.     PICTURE "@Z"
  171. @ 8.077,112.800 SAY Roster.license ;
  172.     SIZE 1.000,4.600 ;
  173.     FONT "MS Sans Serif", 8 ;
  174.     PICTURE "@Z"
  175. @ 10.231,48.400 SAY Roster.phone1 ;
  176.     SIZE 1.000,15.800 ;
  177.     FONT "MS Sans Serif", 8
  178. @ 10.231,79.600 SAY Bioinfo.direct ;
  179.     SIZE 1.000,15.800 ;
  180.     FONT "MS Sans Serif", 8
  181. @ 10.231,113.200 SAY Bioinfo.agntmobile ;
  182.     SIZE 1.000,15.800 ;
  183.     FONT "MS Sans Serif", 8
  184. @ 13.000,48.400 SAY Bioinfo.agntpager ;
  185.     SIZE 1.000,15.800 ;
  186.     FONT "MS Sans Serif", 8
  187. @ 13.000,79.600 SAY Bioinfo.homephone ;
  188.     SIZE 1.000,15.800 ;
  189.     FONT "MS Sans Serif", 8
  190. @ 13.000,113.200 SAY Bioinfo.agntfax ;
  191.     SIZE 1.000,15.800 ;
  192.     FONT "MS Sans Serif", 8
  193. @ 14.846,38.800 SAY Roster.service1 + '     ' +  Roster.service2 + '    ' +  Roster.service3 + '     ' +  Roster.service4 ;
  194.     SIZE 1.000,100.000 ;
  195.     FONT "MS Sans Serif", 8
  196. @ 16.692,17.200 SAY Bioinfo.education ;
  197.     SIZE 1.000,40.000 ;
  198.     FONT "MS Sans Serif", 8
  199. @ 16.692,94.000 SAY Bioinfo.price_fr ;
  200.     SIZE 1.000,13.600 ;
  201.     FONT "MS Sans Serif", 8 ;
  202.     PICTURE "@BZ"
  203. @ 16.538,110.000 SAY " to" ;
  204.     FONT "MS Sans Serif", 10 ;
  205.     STYLE "BT"
  206. @ 16.692,115.600 SAY Bioinfo.price_to ;
  207.     SIZE 1.000,15.800 ;
  208.     FONT "MS Sans Serif", 8 ;
  209.     PICTURE "@BZ"
  210. @ 18.538,31.600 SAY Bioinfo.desig1 ;
  211.     SIZE 1.000,13.000 ;
  212.     FONT "MS Sans Serif", 8
  213. @ 18.538,96.400 SAY Bioinfo.desig2 ;
  214.     SIZE 1.000,13.000 ;
  215.     FONT "MS Sans Serif", 8
  216. @ 20.385,26.800 SAY Bioinfo.career ;
  217.     SIZE 1.000,54.800 ;
  218.     FONT "MS Sans Serif", 8
  219. @ 24.077,24.400 SAY Bioinfo.civic1 + '    ' +  Bioinfo.civic2+ '     ' +  Bioinfo.civic3 ;
  220.     SIZE 1.000,114.400 ;
  221.     FONT "MS Sans Serif", 8
  222. @ 25.923,29.200 SAY Bioinfo.hobby1+ '    ' +  Bioinfo.hobby2 + '    ' +  Bioinfo.hobby3 ;
  223.     SIZE 1.000,109.600 ;
  224.     FONT "MS Sans Serif", 8
  225. @ 27.769,33.600 GET M.Buy ;
  226.     PICTURE "@*C Buyers" ;
  227.     SIZE 1.308,10.833 ;
  228.     DEFAULT 0 ;
  229.     FONT "MS Sans Serif", 8 ;
  230.     STYLE "BT"
  231. @ 27.769,48.000 GET M.sell ;
  232.     PICTURE "@*C Sellers" ;
  233.     SIZE 1.308,10.833 ;
  234.     DEFAULT 0 ;
  235.     FONT "MS Sans Serif", 8 ;
  236.     STYLE "BT"
  237. @ 29.462,2.000 SAY "Desire Referrals" ;
  238.     FONT "MS Sans Serif", 10 ;
  239.     STYLE "BT"
  240. @ 29.615,33.600 GET M.Prop ;
  241.     PICTURE "@*C Prop Manag" ;
  242.     SIZE 1.308,15.833 ;
  243.     DEFAULT 0 ;
  244.     FONT "MS Sans Serif", 8 ;
  245.     STYLE "BT"
  246. @ 29.615,55.200 GET M.Rent ;
  247.     PICTURE "@*C Rentals" ;
  248.     SIZE 1.308,11.667 ;
  249.     DEFAULT 0 ;
  250.     FONT "MS Sans Serif", 8 ;
  251.     STYLE "BT"
  252. @ 29.615,69.600 GET M.Reloc ;
  253.     PICTURE "@*C Reloc" ;
  254.     SIZE 1.308,10.000 ;
  255.     DEFAULT 0 ;
  256.     FONT "MS Sans Serif", 8 ;
  257.     STYLE "BT"
  258. @ 29.615,84.000 GET M.REO ;
  259.     PICTURE "@*C REO" ;
  260.     SIZE 1.308,8.833 ;
  261.     DEFAULT 0 ;
  262.     FONT "MS Sans Serif", 8 ;
  263.     STYLE "BT"
  264. @ 31.308,2.000 SAY "Will Provide:    ERC/Relocation Paperwork" ;
  265.     FONT "MS Sans Serif", 10 ;
  266.     STYLE "BT"
  267. @ 31.308,62.400 GET M.ERC ;
  268.     PICTURE "@*C  " ;
  269.     SIZE 1.308,5.167 ;
  270.     DEFAULT 0 ;
  271.     FONT "MS Sans Serif", 8 ;
  272.     STYLE "BT"
  273. @ 31.308,74.000 SAY "Std Welcome Kit:" ;
  274.     FONT "MS Sans Serif", 10 ;
  275.     STYLE "BT"
  276. @ 31.231,99.000 GET M.Kit ;
  277.     PICTURE "@*C  " ;
  278.     SIZE 1.308,5.167 ;
  279.     DEFAULT 0 ;
  280.     FONT "MS Sans Serif", 8 ;
  281.     STYLE "BT"
  282. @ 33.154,2.000 SAY "Avg. # of Relocations Per Year:" ;
  283.     FONT "MS Sans Serif", 10 ;
  284.     STYLE "BT"
  285. @ 33.308,48.400 SAY Bioinfo.relocation ;
  286.     SIZE 1.000,6.000 ;
  287.     FONT "MS Sans Serif", 8 ;
  288.     PICTURE "@Z"
  289.  
  290. IF NOT WVISIBLE("pro")
  291.     ACTIVATE WINDOW pro
  292. ENDIF
  293.  
  294. READ CYCLE ;
  295.     DEACTIVATE .T.
  296.  
  297. RELEASE WINDOW pro
  298. SELECT (m.currarea)
  299.  
  300.  
  301. #REGION 0
  302.  
  303. SET READBORDER &rborder
  304.  
  305. IF m.talkstat = "ON"
  306.     SET TALK ON
  307. ENDIF
  308. IF m.compstat = "ON"
  309.     SET COMPATIBLE ON
  310. ENDIF
  311.